home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_100 / 132_01 / run < prev    next >
Text File  |  1985-08-19  |  2KB  |  212 lines

  1.     #ASM
  2. ccgchar:
  3.     FCB    01FH,01    
  4.     FCB    0E6H,084H    
  5. ccsxt:
  6.     FCB    01DH    
  7.     rts
  8. ccgint:
  9.     FCB    01FH,01    
  10.     FCB    0ECH,084H    
  11.     rts
  12. ccpchar:
  13.     FCB    0E7H,084H 
  14.     rts
  15. ccpint:
  16.     FCB    0EDH,084H 
  17.     rts
  18. ccor:
  19.     FCB    034H,010H    
  20.     FCB    0AAH,0E0H    
  21.     FCB    0EAH,0E0H    
  22.     rts
  23. ccxor:
  24.     FCB    034H,010H    
  25.     FCB    0A8H,0E0H    
  26.     FCB    0E8H,0E0H    
  27.     rts
  28. ccand:
  29.     FCB    034H,010H    
  30.     FCB    0A4H,0E0H    
  31.     FCB    0E4H,0E0H    
  32.     rts
  33. cccmp:
  34.     FCB    034H,006H    
  35.     FCB    01EH,01        
  36.     FCB    08EH,0,1    
  37.     FCB    0A3H,0E1H    
  38.     FCB    01EH,01        
  39.     bmi    ccmp1
  40.     FCB    01CH,0FEH    
  41.     rts
  42. ccmp1:
  43.     FCB    01AH,01        
  44.     rts
  45. cceq:
  46.     bsr    cccmp
  47.     beq    exit
  48.     decb
  49. exit:    rts
  50. ccne:
  51.     bsr    cccmp
  52.     bne    exit
  53.     decb
  54.     rts
  55. ccgt:
  56.     FCB    01EH,01        
  57.     bsr    cccmp
  58.     bcs    exit
  59.     decb
  60.     rts
  61. ccle:
  62.     bsr    cccmp
  63.     beq    exit
  64.     bcs    exit
  65.     decb
  66.     rts
  67. ccge:
  68.     bsr    cccmp
  69.     bcc    exit
  70.     decb
  71.     rts
  72. cclt:
  73.     bsr    cccmp
  74.     bcs    exit
  75.     decb
  76.     rts
  77. ccuge:
  78.     bsr    ccucmp
  79.     bcc    exit
  80.     decb
  81.     rts
  82. ccult:
  83.     bsr    ccucmp
  84.     bcs    exit
  85.     decb
  86.     rts
  87. ccugt:
  88.     FCB    01EH,01    
  89.     bsr    ccucmp
  90.     bcs    exit
  91.     decb
  92.     rts
  93. ccule:
  94.     bsr    ccucmp
  95.     beq    exit
  96.     bcs    exit
  97.     decb
  98.     rts
  99. ccucmp:
  100.     FCB    034H,06    
  101.     FCB    01EH,01    
  102.     FCB    08EH,01    
  103.     FCB    010H,0A3H,0E1H    
  104.     rts
  105. ccasr:
  106.     FCB    01EH,01    
  107. lccasr:    
  108.     asra
  109.     rorb
  110.     FCB    030H,01FH    
  111.     bne    lccasr
  112.     rts
  113. ccasl:
  114.     FCB    01EH,01        
  115. lccasl:
  116.     aslb
  117.     rola
  118.     FCB    030H,01FH    
  119.     bne    lccasl
  120.     rts
  121. ccsub:
  122.     FCB    034H,06        
  123.     FCB    01eH,01        
  124.     FCB    0A3H,0E1H    
  125.     rts
  126. cccom:
  127.     coma
  128.     comb
  129.     rts
  130. ccneg:
  131.     coma
  132.     comb
  133.     FCB    0C3H,00,01    
  134.     rts
  135. ccmult:
  136.     FCB    034H,016H    
  137.     clra
  138.     clrb
  139. ccmul1:
  140.     FCB    064H,0e4H    
  141.     FCB    066H,061H    
  142.     bcc    ccmul2
  143.     FCB    0E3H,062H    
  144. ccmul2:
  145.     FCB    06dH,061H    
  146.     bne    ccmul3
  147.     FCB    06DH,0E4H    
  148.     bne    ccmul3
  149.     FCB    032H,064H    
  150.     rts
  151. ccmul3:
  152.     FCB    068H,063H    
  153.     FCB    069H,062H    
  154.     bne    ccmul1
  155.     FCB    06DH,063H    
  156.     bne    ccmul1
  157.     FCB    032H,064H    
  158.     rts
  159. ccdiv:
  160.     FCB    034H,016H    
  161.     FCB    0A8H,062H    
  162.     FCB    034H,006H    
  163.     clra
  164.     clrb
  165.     FCB    034H,006H    
  166.     FCB    06DH,064H    
  167.     bpl    ccdiv0
  168.     FCB    0A3H,064H    
  169.     FCB    0EDH,064H    
  170. ccdiv0:
  171.     FCB    06DH,066H    
  172.     bpl    ccdiv4
  173.     clra
  174.     clrb
  175.     FCB    0A3H,066H    
  176.     FCB    0EDH,066H    
  177. ccdiv4:
  178.     FCB    0CCH,0,010H    
  179.     FCB    034H,006H    
  180. ccdiv1:
  181.     FCB    068H,069H    
  182.     FCB    069H,068H    
  183.     FCB    069H,063H    
  184.     FCB    069H,062H    
  185.     bne    ccdiv2
  186.     FCB    0ECH,062H    
  187.     FCB    010H,0A3H,066H    
  188.     bmi    ccdiv2
  189.     FCB    06CH,069H    
  190.     FCB    0ECH,062H    
  191.     FCB    0A3H,066H    
  192.     FCB    0EDH,066H    
  193. ccdiv2:
  194.     FCB    06AH,061H    
  195.     bne    ccdiv1
  196. ccdiv3:
  197.     FCB    06DH,064H    
  198.     bpl    ccdivx
  199.     clra
  200.     clrb
  201.     FCB    0A3H,062H    
  202.     FCB    032H,06AH    
  203. ccdivx:
  204.     rts
  205.     #ENDASM
  206. 
  207.     comb
  208.     rts
  209. ccneg:
  210.     coma
  211.     comb
  212.     FCB    0C3H,00,01